home *** CD-ROM | disk | FTP | other *** search
/ Future Workshop / Future Workshop.iso / internet / rose / scripts.z / SAPONET.SCR < prev    next >
Encoding:
Text File  |  1992-07-30  |  2.2 KB  |  68 lines
  1. !---------------------------------------------------------------------!
  2. !                                                                     !
  3. !  Copyright (c) 1991                                                 !
  4. !  by CompuServe Incorporated, Columbus, Ohio                         !
  5. !                                                                     !
  6. !  The information in this software is subject to change without      !
  7. !  notice and should not be construed as a commitment by CompuServe.  !
  8. !                                                                     !
  9. !  SAPONET Script:                                                    !
  10. !     Connect to CSIR-Net                                             !
  11. !     Success:  returns %Success                                      !
  12. !     Failure:  saves error msg in %FailureMsg and returns %Failure   !
  13. !                                                                     !
  14. !  $Revision:   1.0                                                   !
  15. !                                                                     !
  16. !---------------------------------------------------------------------!
  17.  
  18. CSIRNET_Id = "901040oz3u";
  19. CIS_Address = "C 10631679";
  20.  
  21.  
  22. Tries = 5;
  23. on cancel goto Return_Cancel;
  24. show "Connecting to CSIR-Net";
  25. wait until 5;
  26. send %CR & %CR;
  27.  
  28. Wait_CSIRNET:
  29.  
  30.     if Tries = 0 goto CSIRNET_Failure;
  31.     Tries = Tries - 1;
  32.  
  33.       wait
  34.           "NUI?"  goto send_CSIRNET_password,
  35.           "SELECT ?"  goto send_A,
  36.           "FOR MAIN INDEX"  goto send_CIS_Address,
  37.           "NO CIRCUIT"  goto send_CIS_Address,
  38.           "NO CARRIER"  goto CSIRNET_Failure
  39.       until 350;
  40.  
  41.       send %CR;
  42.       goto Wait_CSIRNET;
  43.  
  44. send_CSIRNET_password:
  45.       send CSIRNET_Id;
  46.       show "Waiting for TRIPLE-X ...";
  47.       goto Wait_CSIRNET;
  48.  
  49. send_A:
  50.       send "A";
  51.       goto Wait_CSIRNET;
  52.  
  53. send_CIS_Address:
  54.       show "Sending CompuServe Address ...";
  55.       wait until 15;
  56.       send CIS_Address & %CR;
  57.       goto Return_Success;
  58.  
  59. CSIRNET_Failure:
  60.       define %FailureMsg = "CSIR-Net: No Response";
  61.       exit %Failure;
  62.  
  63. Return_Cancel:
  64.     exit %Cancel;
  65.  
  66. Return_Success:
  67.     exit %Success;
  68.